L'Encyclopedie Des Jeux Video 8/EJV8_CD2.ISO/ejv8-cd2/viewer.dxr/00040_roll text.ls

Text File | 2003-10-24 | 2.4 KB | 88 lines

property choix_line, forcol, select, roll, VieilLine, entreList

on getPropertyDescriptionList
  description = [:]
  addProp(description, #forcol, [#default: 0, #format: #integer, #comment: "Couleur du champ à l'état normal" & QUOTE, #range: [#min: 0, #max: 255]])
  addProp(description, #roll, [#default: 35, #format: #integer, #comment: "Couleur de la ligne en " & QUOTE & "Rollover" & QUOTE, #range: [#min: 0, #max: 255]])
  addProp(description, #select, [#default: 255, #format: #integer, #comment: "Couleur de la sélection", #range: [#min: 0, #max: 255]])
  return description
end

on beginSprite me
  choix_line = VOID
  VieilLine = 0
  entreList = 0
  member(the memberNum of sprite the currentSpriteNum).foreColor = forcol
  member(the memberNum of sprite the currentSpriteNum).scrollTop = 0
end

on endSprite me
end

on mouseDown me
  if choix_line <> VOID then
    set the foreColor of line choix_line of member the memberNum of sprite the currentSpriteNum to forcol
  end if
  if the mouseLine = -1 then
    nothing()
  else
    choix_line = the mouseLine
  end if
  cursor(-1)
end

on mouseLeave me
  entreList = 0
  set the foreColor of line VieilLine of member the memberNum of sprite the currentSpriteNum to forcol
  cursor(-1)
end

on mouseWithin me
  entreList = entreList + 1
  if the mouseLine <> -1 then
    leNom = the mouseLine
    mouse_sur_line(leNom)
    if entreList = 1 then
      VieilLine = leNom
    end if
    VieilLine = leNom
  end if
  cursor(280)
end

on prepareFrame me
  choix_ligne()
end

on mouse_sur_line X
  if X <> VieilLine then
    if VieilLine = choix_line then
      nothing()
    else
      set the foreColor of line VieilLine of field the memberNum of sprite the currentSpriteNum to forcol
    end if
    if X = choix_line then
      nothing()
    else
      set the foreColor of line X of member the memberNum of sprite the currentSpriteNum to roll
    end if
  else
    if X = choix_line then
      nothing()
    else
      set the foreColor of line X of member the memberNum of sprite the currentSpriteNum to roll
    end if
  end if
end

on choix_ligne
  global choix_line
  if choix_line <> VOID then
    set the foreColor of line choix_line of member the memberNum of sprite the currentSpriteNum to select
  else
    if choix_line <> VOID then
      set the foreColor of line choix_line of member the memberNum of sprite the currentSpriteNum to forcol
    end if
  end if
end